## Scan through d04_.p and print action names, sname[*]:='*'
BEGIN{
  what=ARGV[2]; delete ARGV[2]; ARGC--;
  rege=what"\\[.*\\]:=.*;"; # THIS IS DYNAMICAL REGEXP!
}
{
if(match($0,rege)){
  tmp=substr($0,RSTART,RLENGTH);
  match(tmp,/\[.*\]/);
  lab=substr(tmp,RSTART+1,RLENGTH-2);
  match(tmp,/'.*'/);
  aname=substr(tmp,RSTART+1,RLENGTH-2);
  if(lab*1>0)print lab,aname; # pascal index must be constant int, not var
};
}
